home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Insert Text.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  451 b   |  22 lines
  1. ' This simple macro adds text to the drawing
  2. '
  3. >SetStartPoint
  4. {
  5. }
  6. ' Un-remark these next 2 lines to make the input box appear in the upper 
  7. ' left corner of the DesignCAD window, so it does not cover the drawing area.
  8.     ' Sys(130) = 5
  9.     ' Sys(131) = 5
  10. ' Get Distances from user
  11.     Input "Enter Text", text$
  12. ' Get XY location of cursor
  13.     getxy x1 y1 z1
  14. ' Add Text to the drawing
  15.     >Text
  16.     {
  17.     <Gravity 0+Step, 0, 0
  18.     <text [text$]
  19.     }
  20. end
  21.  
  22.